﻿Module Module1
  Sub Main()
    Dim persone(3) As Persona
    persone(0) = New Uomo
    persone(1) = New Donna
    persone(2) = New Donna
    persone(3) = New Uomo

    persone(0).cognome = "Verdi"
    persone(0).nome = "Giuseppe"
    persone(0).dataNascita = _
        New Date(1813, 10, 10)

    persone(1).cognome = "Callas"
    persone(1).nome = "Maria"
    persone(1).dataNascita = _
        New Date(1923, 12, 2)

    persone(2).cognome = "Garbo"
    persone(2).nome = "Greta"
    persone(2).dataNascita = _
        New Date(1905, 9, 18)

    persone(3).cognome = "Modugno"
    persone(3).nome = "Domenico"
    persone(3).dataNascita = _
        New Date(1928, 1, 9)

    For i As Integer = 0 To 3
      Console.WriteLine(persone(i).datiAnagrafici)
    Next

    Console.ReadLine()
  End Sub
End Module
